ftp.trace.wisc.edu/ftp.trace.wisc.edu.zip/ftp.trace.wisc.edu/hypertyper.sit.hqx/HyperTyper/HyperTyper - color/background_2744.txt

Text File | 1995-08-20 | 4KB | 130 lines

-- background: 2744 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 0
-- name:
----- HyperTalk script -----
on inSert
  select after text of card field id 1
end inSert

on lowerCase
  global keYs
  if keYs is true then
    set hilite of button "SHIFT" to false
    put false into keYs
    lock screen
    set name of button "A" to "a"
    set name of button "B" to "b"
    set name of button "C" to "c"
    set name of button "D" to "d"
    set name of button "E" to "e"
    set name of button "F" to "f"
    set name of button "G" to "g"
    set name of button "H" to "h"
    set name of button "I" to "i"
    set name of button "J" to "j"
    set name of button "K" to "k"
    set name of button "L" to "l"
    set name of button "M" to "m"
    set name of button "N" to "n"
    set name of button "O" to "o"
    set name of button "P" to "p"
    set name of button "Q" to "q"
    set name of button "R" to "r"
    set name of button "S" to "s"
    set name of button "T" to "t"
    set name of button "U" to "u"
    set name of button "V" to "v"
    set name of button "W" to "w"
    set name of button "X" to "x"
    set name of button "Y" to "y"
    set name of button "Z" to "z"
    set name of button "!" to "1"
    set name of button "@" to "2"
    set name of button "#" to "3"
    set name of button "$" to "4"
    set name of button "%" to "5"
    set name of button "^" to "6"
    set name of button "&" to "7"
    set name of button "*" to "8"
    set name of button "(" to "9"
    set name of button ")" to "0"
    set name of button "_" to "-"
    set name of button "+" to "="
    set name of button "|" to "\"
    set name of button "{" to "["
    set name of button "}" to "]"
    set name of button ":" to ";"
    set name of button "''" to "'"
    set name of button "<" to ","
    set name of button ">" to "."
    set name of button "?" to "/"
    unlock screen
  else idle
end lowerCase


on capsnotDown
  global lockIt
  put false into lockIt
  set hilite of button "LOCK" to false
  lock screen
  set name of button "A" to "a"
  set name of button "B" to "b"
  set name of button "C" to "c"
  set name of button "D" to "d"
  set name of button "E" to "e"
  set name of button "F" to "f"
  set name of button "G" to "g"
  set name of button "H" to "h"
  set name of button "I" to "i"
  set name of button "J" to "j"
  set name of button "K" to "k"
  set name of button "L" to "l"
  set name of button "M" to "m"
  set name of button "N" to "n"
  set name of button "O" to "o"
  set name of button "P" to "p"
  set name of button "Q" to "q"
  set name of button "R" to "r"
  set name of button "S" to "s"
  set name of button "T" to "t"
  set name of button "U" to "u"
  set name of button "V" to "v"
  set name of button "W" to "w"
  set name of button "X" to "x"
  set name of button "Y" to "y"
  set name of button "Z" to "z"
  set name of button "@" to "2"
  set name of button "#" to "3"
  set name of button "$" to "4"
  set name of button "%" to "5"
  set name of button "^" to "6"
  set name of button "&" to "7"
  set name of button "*" to "8"
  set name of button "(" to "9"
  set name of button ")" to "0"
  set name of button "_" to "-"
  set name of button "+" to "="
  set name of button "|" to "\"
  set name of button "{" to "["
  set name of button "}" to "]"
  set name of button ":" to ";"
  set name of button "''" to "'"
  set name of button "<" to ","
  set name of button ">" to "."
  set name of button "?" to "/"
  set name of button "!" to "1"
  unlock screen
end capsnotDown